home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Amiga-E
/
E_v3.2a
/
Src
/
Gfx
/
PPV.e
< prev
next >
Wrap
Text File
|
1992-09-02
|
854b
|
33 lines
/* 256 greyscale preview of POVRAY files
Quickly preview POV-ray's 24-bit output files on a 256 greyscale
AGA screen. No fancy implementation.
*/
MODULE 'tools/file', 'tools/exceptions'
PROC main() HANDLE
DEF scr=NIL,win=NIL,a,p,name,xs,ys,x,y
name:=IF arg[] THEN arg ELSE 'data.dis'
p:=readfile(name)
xs:=p[0]+(p[1]*256); ys:=p[2]+(p[3]*256); p:=p+4
WriteF('POV-Ray Quick 256 Greyscale PreView, $#%!\n' +
'file: "\s", (\dx\d) [mouse to quit]\n',name,xs,ys)
IF scr:=OpenS(xs,ys,8,$0,'')
IF win:=OpenW(0,0,xs,ys,$8,0,'',scr,15,0)
FOR a:=0 TO 255 DO SetColour(scr,a,a,a,a)
FOR y:=0 TO ys-1
p:=p+2
FOR x:=0 TO xs-1 DO Plot(x,y,p[x]+p[x+xs]+p[x+xs+xs]/3)
p:=xs*3+p
ENDFOR
WaitIMessage(win)
ENDIF
ENDIF
EXCEPT DO
CloseW(win)
CloseS(scr)
report_exception()
ENDPROC